Imports Cdm.DataCore.Entities
Imports System.Collections.Generic

Partial Class DataLoad_UploadErrors
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim participants As List(Of Participant) = Session("DataLoadErrorList")
        Me.ErrorList.DataSource = participants
        Me.ErrorList.DataBind()
    End Sub

    Protected Sub ErrorList_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles ErrorList.ItemDataBound
        Dim errorControl As DataLoad_UploadErrorDisplay = e.Item.FindControl("UploadErrorDisplay1")
        errorControl.SetParticipant(e.Item.DataItem)
    End Sub
End Class
